Copy disabled (too large)
Download .txt
Showing preview only (41,093K chars total). Download the full file to get everything.
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 ,
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
Copy disabled (too large)
Download .json
Condensed preview — 2253 files, each showing path, character count, and a content snippet. Download the .json file for the full structured content (42,430K chars).
[
{
"path": "README.md",
"chars": 859,
"preview": "# NASTRAN-95\n\nNASTRAN has been released under the \n[NASA Open Source Agreement version 1.3](https://github.com/nasa/NAS"
},
{
"path": "alt/COSDBCL",
"chars": 3473,
"preview": "$ COSDBCL.ALT\r\n$\r\n$ DMAP ALTER PACKAGE FOR\r\n$ DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES "
},
{
"path": "alt/COSDDAM",
"chars": 1874,
"preview": "$ COSMIC ALTERS FOR DDAM PROBLEMS (COSDDAM)\r\n$ ALTER 71 $\r\nINSERT READ $\r\nDIAGONAL MI/MIS/*SQUARE*/-0.5 $\r\nSMPYAD M"
},
{
"path": "alt/COSDFVA",
"chars": 14142,
"preview": "$ COSMIC ALTERS FOR DIRECT FORCED VIBRATION ANALYSIS (COSDFVA) \r\n$ ALTER 3 $ \r\nINSERT FILE $\r\nFILE "
},
{
"path": "alt/COSHYD1",
"chars": 3241,
"preview": "$ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - DIRECT FORMULATION (COSHYD1)\r\n$ ALTER 1,1 $ COSMIC/NASTRAN RF 3. REPLAC"
},
{
"path": "alt/COSHYD2",
"chars": 4027,
"preview": "$ COSMIC ALTERS FOR HYDROELASTIC ANALYSIS - MODAL FORMULATION (COSHYD2)\r\n$ ALTER 1,1 $ COSMIC/NASTRAN RF 3. REPLACIN"
},
{
"path": "alt/COSMFVA",
"chars": 18844,
"preview": "$ COSMIC ALTERS FOR MODAL FORCED VIBRATION ANALYSIS (COSMFVA) \r\n$ ALTER 3 $ \r\nINSERT FILE $\r\nFILE U"
},
{
"path": "bd/dpdcbd.f",
"chars": 2902,
"preview": " BLOCK DATA DPDCBD\r\nCDPDCBD\r\nC BLOCK DATA PROGRAM FOR THE DYNAMICS POOL DISTRIBUTOR\r\nC*****\r\nC\r\n INTEGER "
},
{
"path": "bd/exiobd.f",
"chars": 3788,
"preview": " BLOCK DATA EXIOBD\r\nC\r\nC BLOCK DATA SUBPROGRAM FOR MODULE EXIO.\r\nC\r\n INTEGER F1, F2, F3, P1, P2, P"
},
{
"path": "bd/ferfbd.f",
"chars": 5371,
"preview": " SUBROUTINE FERFBD(V1,V2,V3,VB)\r\nC\r\nC FERFBD is a modification of the old FRBK2 subroutine. It has been\r\nC modif"
},
{
"path": "bd/flbbd.f",
"chars": 1529,
"preview": " BLOCK DATA FLBBD\r\nCFLBBD\r\nC FLBBD - BLOCK DATA FOR MODULE FLBMG\r\nC\r\n INTEGER GEOM2 ,ECT ,"
},
{
"path": "bd/gp3bd.f",
"chars": 4226,
"preview": " BLOCK DATA GP3BD\r\nCGP3BD\r\nC\r\nC BLOCK DATA PROGRAM FOR MODULE GP3.\r\nC\r\n INTEGER GEOM3 ,EQEXIN,GEOM"
},
{
"path": "bd/gptabd.f",
"chars": 32919,
"preview": " BLOCK DATA GPTABD\r\nCGPTABD\r\nC BLOCK DATA PROGRAM FOR ALL MODULES HAVING ANYTHING TO DO WITH THE\r\nC NASTRAN"
},
{
"path": "bd/ifp3bd.f",
"chars": 6229,
"preview": " BLOCK DATA IFP3BD\r\nCIFP3BD\r\nC B L O C K D A T A F O R I F P 3\r\nC\r\nC\r\n INTEGER FILE "
},
{
"path": "bd/ifx1bd.f",
"chars": 12824,
"preview": " BLOCK DATA IFX1BD\r\nCIFX1BD\r\nC DEFINITION OF VARIABLES IN /IFPX1/ AND /IFPX0/\r\nC*****\r\nC\r\nC COMMON /IFPX1/\r"
},
{
"path": "bd/ifx2bd.f",
"chars": 5148,
"preview": " BLOCK DATA IFX2BD\r\nCIFX2BD\r\nC\r\nC PAIRS OF TWO WORDS\r\nC SECOND WORD IS APPROACH ACCEPTANCE FLAG, INITIALIZE"
},
{
"path": "bd/ifx3bd.f",
"chars": 4701,
"preview": " BLOCK DATA IFX3BD\r\nCIFX3BD\r\nC THIS TABLE CONTAINS TWO WORDS PER ENTRY (CARD TYPE)\r\nC FIRST WORD IS USED A"
},
{
"path": "bd/ifx4bd.f",
"chars": 4711,
"preview": " BLOCK DATA IFX4BD\r\nCIFX4BD\r\nC THIS TABLE CONTAINS TWO WORDS PER ENTRY (CARD TYPE)\r\nC FIRST AND SECOND WORD"
},
{
"path": "bd/ifx5bd.f",
"chars": 4633,
"preview": " BLOCK DATA IFX5BD\r\nCIFX5BD\r\nC\r\nC THE FIRST WORD OF EACH PAIR IS AN INDEX INTO /IFPX7/ FOR INPUT\r\nC CARD S"
},
{
"path": "bd/ifx6bd.f",
"chars": 4612,
"preview": " BLOCK DATA IFX6BD\r\nCIFX6BD\r\nC\r\nC THE FIRST WORD DEFINES A CARD-TYPE IDENTIFICATION CODE, AND\r\nC THE SECON"
},
{
"path": "bd/ifx7bd.f",
"chars": 11930,
"preview": " BLOCK DATA IFX7BD\r\nCIFX7BD\r\nC EACH ENTRY CONTAINS THE ADMISSIBLE SEQUAENCE OF FORMAT CODES FOR\r\nC THAT CAR"
},
{
"path": "bd/itembd.f",
"chars": 4832,
"preview": " BLOCK DATA ITEMBD\r\nCITEMBD\r\nC ITEMBD BLOCK DATA\r\nC\r\nC TO ADD NEW ITEMS TO THE SOF THE FOLLOWING CODE CHANG"
},
{
"path": "bd/of1pbd.f",
"chars": 3755,
"preview": " BLOCK DATA OF1PBD\r\nCOF1PBD\r\nC\r\nC C ARRAY FOR REAL STRESSES SORT 1\r\nC\r\n INTEGER C1,C21,C41,C61,C81\r\n "
},
{
"path": "bd/of2pbd.f",
"chars": 7508,
"preview": " BLOCK DATA OF2PBD\r\nCOF2PBD\r\nC\r\nC C ARRAY FOR COMPLEX STRESSES SORT1\r\nC\r\n INTEGER C1,C21,C41,C61,C8"
},
{
"path": "bd/of3pbd.f",
"chars": 3760,
"preview": " BLOCK DATA OF3PBD\r\nCOF3PBD\r\nC\r\nC C ARRAY FOR REAL STRESSES SORT 2 TIME\r\nC\r\n INTEGER C1,C21,C41,C61,C81\r"
},
{
"path": "bd/of3sbd.f",
"chars": 3887,
"preview": " BLOCK DATA OF3SBD\r\nCOF3SBD\r\nC\r\nC C ARRAY FOR REAL STRESSES SORT 2 - SUBCASE - STATICS\r\nC\r\n INTEGER C1,C"
},
{
"path": "bd/of4pbd.f",
"chars": 7520,
"preview": " BLOCK DATA OF4PBD\r\nCOF4PBD\r\nC\r\nC C ARRAY FOR COMPLEX STRESSES SORT2 FREQUENCY\r\nC\r\n INTEGER C1,C21,"
},
{
"path": "bd/of5pbd.f",
"chars": 3752,
"preview": " BLOCK DATA OF5PBD\r\nCOF5PBD\r\nC\r\nC C ARRAY FOR REAL FORCES SORT 1\r\nC\r\n INTEGER C1,C21,C41,C61,C81\r\n C"
},
{
"path": "bd/of6pbd.f",
"chars": 7553,
"preview": " BLOCK DATA OF6PBD\r\nCOF6PBD\r\nC\r\nC C ARRAY FOR COMPLEX FORCES SORT 1\r\nC\r\n INTEGER C1,C21,C41,C61,C81\r\n "
},
{
"path": "bd/of7pbd.f",
"chars": 3759,
"preview": " BLOCK DATA OF7PBD\r\nCOF7PBD\r\nC\r\nC C ARRAY FOR REAL FORCES SORT 2 - TIME\r\nC\r\n INTEGER C1,C21,C41,C61,C81\r\n"
},
{
"path": "bd/of7sbd.f",
"chars": 3882,
"preview": " BLOCK DATA OF7SBD\r\nCOF7SBD\r\nC\r\nC C ARRAY FOR REAL FORCES SORT 2 - SUBCASE - STATICS\r\nC\r\n INTEGER C1,C21"
},
{
"path": "bd/of8pbd.f",
"chars": 7319,
"preview": " BLOCK DATA OF8PBD\r\nCOF8PBD\r\nC\r\nC C ARRAY FOR COMPLEX FORCES SORT 2 - FREQUENCY\r\nC\r\n INTEGER C1,C21,C41"
},
{
"path": "bd/of9pbd.f",
"chars": 4565,
"preview": " BLOCK DATA OF9PBD\r\nCOF9PBD\r\nC\r\nC BLOCK DATA FOR ALL NON-STRESS AND NON-FORCE C ARRAYS\r\nC\r\n INTEGER C1, C4"
},
{
"path": "bd/ofp1bd.f",
"chars": 35435,
"preview": " BLOCK DATA OFP1BD\r\nCOFP1BD\r\n INTEGER D1 ,D201 ,D401 ,D601 ,D801 ,D1001,D1201,D1401,D1601,\r\n 1 D1"
},
{
"path": "bd/ofp5bd.f",
"chars": 9482,
"preview": " BLOCK DATA OFP5BD\r\nCOFP5BD\r\n INTEGER ESINGL, E1, E21, E41, E61, E81\r\n COMMON /OFPBD5/ ESINGL(64),E1(100)"
},
{
"path": "bd/ofsnbd.f",
"chars": 703,
"preview": " BLOCK DATA OFSNBD\r\nCOFSNBD\r\nC C ARRAY FOR REAL STRAINS SORT1\r\nC\r\n INTEGER C1\r\nCWKBR NCL93012 3/94 CO"
},
{
"path": "bd/ofssbd.f",
"chars": 349,
"preview": " BLOCK DATA OFSSBD\r\nCOFSSBD\r\nC C ARRAY FOR REAL STRESSES SORT1 (IN MATERIAL COORDINATES)\r\nC\r\n INTEGER C1\r\n"
},
{
"path": "bd/pla4bd.f",
"chars": 2060,
"preview": " BLOCK DATA PLA4BD\r\nCPLA4BD\r\nC\r\n INTEGER CSTM ,ECPTS ,GPCT ,ECPTO ,OUTRW ,\r\n 1 "
},
{
"path": "bd/plotbd.f",
"chars": 10522,
"preview": " BLOCK DATA PLOTBD\r\nCPLOTBD\r\n IMPLICIT INTEGER (A-Z)\r\n INTEGER CHAR1(60,3),CHAR2(60,1),CHR19(2,79"
},
{
"path": "bd/readbd.f",
"chars": 1732,
"preview": " BLOCK DATA READBD\r\nCREADBD\r\n INTEGER SCR1,SCR2,SCR3,SCR4,SCR5,SCR6,SCR7,ORDER,RSTRT,\r\n 1 "
},
{
"path": "bd/sdr2bd.f",
"chars": 2833,
"preview": " BLOCK DATA SDR2BD\r\nCSDR2BD\r\n IMPLICIT INTEGER (A-Z)\r\nC\r\n INTEGER RFMTS(40)\r\nC\r\n COMMON /SDR"
},
{
"path": "bd/semdbd.f",
"chars": 34141,
"preview": " BLOCK DATA SEMDBD\r\nCSEMDBD\r\nC\r\nC ***** PRINCIPAL BLOCK DATA PROGRAM FOR NASTRAN *****\r\nC (NOTE - MACHINE"
},
{
"path": "bd/sma1bd.f",
"chars": 1419,
"preview": " BLOCK DATA SMA1BD\r\nCSMA1BD\r\nC\r\n INTEGER CLSRW ,CLSNRW ,EOR ,OUTRW\r\n DOUBLE PRECISION"
},
{
"path": "bd/sma2bd.f",
"chars": 1083,
"preview": " BLOCK DATA SMA2BD\r\nCSMA2BD\r\nC\r\n INTEGER CLSRW, CLSNRW, EOR, OUTRW\r\n COMMON /SMA2IO/ IFCSTM, I"
},
{
"path": "bd/ta1abd.f",
"chars": 1022,
"preview": " BLOCK DATA TA1ABD\r\nCTA1ABD\r\nC\r\nC /TA1ACM/ SPECIFIES THE OPEN CORE LABELED COMMONS /ZZEMXX/\r\nC TO "
},
{
"path": "bd/tabfbd.f",
"chars": 8638,
"preview": " BLOCK DATA TABFBD\r\nCTABFBD\r\nC TABFTX - BLOCK DATA PROGRAM FOR MODULE TABPRT\r\nC\r\n INTEGER HX, RE\r\nC\r\n INT"
},
{
"path": "bd/vdrbd.f",
"chars": 1750,
"preview": " BLOCK DATA VDRBD\r\nCVDRBD\r\nC BLOCK DATA FOR THE VECTOR DATA RECOVERY MODULE (VDR).\r\nC*****\r\n INTEGER USETD,CAS"
},
{
"path": "bin/NASNAMES.COM",
"chars": 427,
"preview": " COMMON / DOSNAM / DIRTRY, RFDIR, INPUT, OUTPUT, LOG , PUNCH\r\n &, PLOT, NPTP , DIC , OPTP ,"
},
{
"path": "bin/linknas",
"chars": 959,
"preview": "#\r\nar x nastlib.a nastrn.o \r\nar x nastlib.a semdbd.o tabfbd.o gptabd.o gp3bd.o ifx1bd.o \r\nar x nastlib.a ifx2bd.o ifx3b"
},
{
"path": "bin/nastran",
"chars": 13802,
"preview": "#!/bin/csh\r\nunalias rm\r\nclear\r\nset rfdir=/usr/users/bob/nast95/rf\r\nset nasexec=/usr/users/bob/nast95/bin/nastrn.exe\r\ns"
},
{
"path": "bin/nastrn.f",
"chars": 4283,
"preview": " PROGRAM NASTRN \r\nC \r\n CHARACTER*80 VALUE\r\n CHARACTER*5 TMP\r\n INTEGER S"
},
{
"path": "demoout/d01000a.out",
"chars": 26556,
"preview": " NASTRAN TITLEOPT=-1 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d01001a.out",
"chars": 26367,
"preview": " NASTRAN TITLEOPT=-1 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d01002a.out",
"chars": 3178,
"preview": " NASTRAN BULKDATA = -3, TITLEOPT = 0 \r\n1 "
},
{
"path": "demoout/d01011a.out",
"chars": 72004,
"preview": " NASTRAN FILES=NPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d01011b.out",
"chars": 74897,
"preview": " NASTRAN FILES = OPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d01011c.out",
"chars": 118275,
"preview": " NASTRAN FILES = OPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d01012a.out",
"chars": 138903,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01013a.out",
"chars": 135194,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01014a.out",
"chars": 72776,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01021a.out",
"chars": 85884,
"preview": " NASTRAN FILES=(NPTP,PLT2) \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d01021b.out",
"chars": 89270,
"preview": " NASTRAN FILES = OPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d01031a.out",
"chars": 122964,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01032a.out",
"chars": 122779,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01033a.out",
"chars": 123193,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01034a.out",
"chars": 128852,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01041a.out",
"chars": 91753,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01051a.out",
"chars": 103227,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01061a.out",
"chars": 30867,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01062a.out",
"chars": 34796,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01071a.out",
"chars": 32443,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01081a.out",
"chars": 75044,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01091a.out",
"chars": 101759,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01092a.out",
"chars": 67043,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01101a.out",
"chars": 46588,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01111a.out",
"chars": 135883,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01112a.out",
"chars": 135623,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01121a.out",
"chars": 31694,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01122a.out",
"chars": 34736,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01131a.out",
"chars": 406430,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01132a.out",
"chars": 68550,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01133a.out",
"chars": 48574,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01141a.out",
"chars": 19262,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d01151a.out",
"chars": 1622875,
"preview": " NASTRAN FILE=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d01161a.out",
"chars": 205609,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d01171a.out",
"chars": 45870,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02011a.out",
"chars": 45631,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02021a.out",
"chars": 46694,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02022a.out",
"chars": 35726,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02023a.out",
"chars": 37377,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02024a.out",
"chars": 703039,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02025a.out",
"chars": 54405,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02026a.out",
"chars": 77929,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02027a.out",
"chars": 90424,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02031a.out",
"chars": 40897,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02032a.out",
"chars": 39821,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02033a.out",
"chars": 132939,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02034a.out",
"chars": 695217,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02035a.out",
"chars": 425438,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d02036a.out",
"chars": 355699,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d03011a.out",
"chars": 146060,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d03012a.out",
"chars": 823315,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d03013a.out",
"chars": 94154,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d03014a.out",
"chars": 619243,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d03021a.out",
"chars": 77421,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d03031a.out",
"chars": 114044,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d03041a.out",
"chars": 268607,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d03051a.out",
"chars": 25174,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d03061a.out",
"chars": 41426,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d03071a.out",
"chars": 37503,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d03081a.out",
"chars": 203911,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d03082a.out",
"chars": 204149,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d03083a.out",
"chars": 162732,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d04011a.out",
"chars": 33385,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d05011a.out",
"chars": 184687,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d05021a.out",
"chars": 38423,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d06011a.out",
"chars": 579762,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d07011a.out",
"chars": 119684,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d07012a.out",
"chars": 42925,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d07021a.out",
"chars": 61504,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d07022a.out",
"chars": 55647,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d08011a.out",
"chars": 104493,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d08012a.out",
"chars": 223333,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d08013a.out",
"chars": 97512,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d08014a.out",
"chars": 135960,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d09011a.out",
"chars": 100586,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d09021a.out",
"chars": 465130,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d09022a.out",
"chars": 359958,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d09031a.out",
"chars": 153238,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d09041a.out",
"chars": 130831,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d10011a.out",
"chars": 104917,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d10021a.out",
"chars": 78171,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d10022a.out",
"chars": 81699,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d10023a.out",
"chars": 74935,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d11011a.out",
"chars": 384732,
"preview": " NASTRAN FILES=(NPTP,PLT2) \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d11011b.out",
"chars": 84305,
"preview": " NASTRAN FILES = OPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d11021a.out",
"chars": 236999,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d11022a.out",
"chars": 198736,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d11031a.out",
"chars": 375093,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d11032a.out",
"chars": 187398,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d12011a.out",
"chars": 403050,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/d13011a.out",
"chars": 65013,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d14011a.out",
"chars": 76480,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/d15011a.out",
"chars": 73721,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t00001a.out",
"chars": 27108,
"preview": " NASTRAN FILES=(INPT1,INPT2) \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t01181a.out",
"chars": 37139,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01191a.out",
"chars": 148944,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01201a.out",
"chars": 70423,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01211a.out",
"chars": 119523,
"preview": " NASTRAN BANDTMTH=2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t01221a.out",
"chars": 113450,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01231a.out",
"chars": 104809,
"preview": " NASTRAN FILES=(INP1,INP2) \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t01241a.out",
"chars": 41643,
"preview": " NASTRAN TITLEOPT=-1, BANDIT=-1 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t01251a.out",
"chars": 40974,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01261a.out",
"chars": 30894,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01271a.out",
"chars": 72577,
"preview": " NASTRAN FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t01281a.out",
"chars": 37558,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01291a.out",
"chars": 47964,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01301a.out",
"chars": 16101,
"preview": " NASTRAN FILES=(INP1,INP2) \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t01311a.out",
"chars": 40898,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01321a.out",
"chars": 36431,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01331a.out",
"chars": 75445,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t01341a.out",
"chars": 22985,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t03091a.out",
"chars": 67215,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t03101a.out",
"chars": 60014,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t03111a.out",
"chars": 96716,
"preview": " NASTRAN FILES=NPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t03111b.out",
"chars": 86207,
"preview": " NASTRAN BANDIT = -1, FILES = OPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t03121a.out",
"chars": 127089,
"preview": " NASTRAN FILES=NPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t03121b.out",
"chars": 84873,
"preview": " NASTRAN FILES = OPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t03121c.out",
"chars": 106684,
"preview": " NASTRAN FILES = OPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t03131a.out",
"chars": 157930,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t04021a.out",
"chars": 39854,
"preview": " NASTRAN FILES=NPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t04021b.out",
"chars": 81358,
"preview": " NASTRAN FILES = OPTP \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t05031a.out",
"chars": 46914,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t08021a.out",
"chars": 620043,
"preview": " NASTRAN FILES = PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t08022a.out",
"chars": 255785,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t08031a.out",
"chars": 462239,
"preview": " NASTRAN SYSTEM(93)=1 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t09051a.out",
"chars": 463062,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t09061a.out",
"chars": 230416,
"preview": " NASTRAN SYSTEM(93)=1, FILES=PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t09071a.out",
"chars": 798111,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t13021a.out",
"chars": 73775,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t13022a.out",
"chars": 157541,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "demoout/t16011a.out",
"chars": 308610,
"preview": " NASTRAN FILES = PLT2 \r\n\r\n\r\n\r\n\r\n\r\n\r\n "
},
{
"path": "demoout/t17011a.out",
"chars": 150867,
"preview": "\r\n\r\n\r\n\r\n\r\n\r\n ****\r\n * *\r\n "
},
{
"path": "inp/d01000a.inp",
"chars": 1640,
"preview": "NASTRAN TITLEOPT=-1 \r\nID D01000A,PRINT RIGID FORMAT "
},
{
"path": "inp/d01001a.inp",
"chars": 1230,
"preview": "NASTRAN TITLEOPT=-1 \r\nID D01001A,PRINT DIAG48 "
},
{
"path": "inp/d01002a.inp",
"chars": 1476,
"preview": "NASTRAN BULKDATA = -3, TITLEOPT = 0 \r\nID D01002A,TIME CONSTANTS "
},
{
"path": "inp/d01011a.inp",
"chars": 15917,
"preview": "NASTRAN FILES=NPTP \r\nID D01011A,NASTRAN "
},
{
"path": "inp/d01011a.txt",
"chars": 11175,
"preview": "$-------------------------------------------------------------------------------\r\n$ RIGID FORMAT No."
},
{
"path": "inp/d01011b.inp",
"chars": 2132,
"preview": "NASTRAN FILES = OPTP \r\nID D01011B,RESTART "
},
{
"path": "inp/d01011b.txt",
"chars": 11175,
"preview": "$-------------------------------------------------------------------------------\r\n$ RIGID FORMAT No."
},
{
"path": "inp/d01011c.inp",
"chars": 2296,
"preview": "NASTRAN FILES = OPTP \r\nID D01011C,RESTART "
},
{
"path": "inp/d01011c.txt",
"chars": 11175,
"preview": "$-------------------------------------------------------------------------------\r\n$ RIGID FORMAT No."
},
{
"path": "inp/d01012a.inp",
"chars": 15662,
"preview": "ID D01012A,NASTRAN \r\nAPP DISPLACEMENT "
},
{
"path": "inp/d01012a.txt",
"chars": 11175,
"preview": "$-------------------------------------------------------------------------------\r\n$ RIGID FORMAT No."
},
{
"path": "inp/d01013a.inp",
"chars": 15908,
"preview": "ID D01013A,NASTRAN \r\nAPP DISPLACEMENT "
},
{
"path": "inp/d01013a.txt",
"chars": 11175,
"preview": "$-------------------------------------------------------------------------------\r\n$ RIGID FORMAT No."
},
{
"path": "inp/d01014a.inp",
"chars": 15826,
"preview": "ID D01014A,NASTRAN \r\nAPP DISPLACEMENT "
},
{
"path": "inp/d01014a.txt",
"chars": 11175,
"preview": "$-------------------------------------------------------------------------------\r\n$ RIGID FORMAT No."
},
{
"path": "inp/d01021a.inp",
"chars": 11890,
"preview": "NASTRAN FILES=(NPTP,PLT2) \r\nID D01021A,NASTRAN "
},
{
"path": "inp/d01021a.txt",
"chars": 4270,
"preview": "$-------------------------------------------------------------------------------\r\n$ RIGID FORMAT No."
}
]
// ... and 2053 more files (download for full content)
About this extraction
This page contains the full source code of the nasa/NASTRAN-95 GitHub repository, extracted and formatted as plain text for AI agents and large language models (LLMs). The extraction includes 2253 files (52.4 MB), approximately 10.3M tokens. Use this with OpenClaw, Claude, ChatGPT, Cursor, Windsurf, or any other AI tool that accepts text input. You can copy the full output to your clipboard or download it as a .txt file.
Extracted by GitExtract — free GitHub repo to text converter for AI. Built by Nikandr Surkov.