Skip to content

Commit

Permalink
adding build received from GSFC
Browse files Browse the repository at this point in the history
  • Loading branch information
jasonduley committed Dec 3, 2015
1 parent 7098ee2 commit 6c3809c
Show file tree
Hide file tree
Showing 2,258 changed files with 782,355 additions and 0 deletions.
Binary file added NASA Open Source Agreement-NASTRAN 95.doc
Binary file not shown.
Binary file added NASTRAN Programmers Manual.pdf
Binary file not shown.
Binary file added NASTRAN Users Manual 2.pdf
Binary file not shown.
8 changes: 8 additions & 0 deletions README.md
Original file line number Diff line number Diff line change
@@ -1 +1,9 @@
# NASTRAN-95

NASTRAN has been released under the
[NASA Open Source Agreement version 1.3](https://github.com/nasa/NASTRAN/raw/master/NASA%20Open%20Source%20Agreement-NASTRAN.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.
90 changes: 90 additions & 0 deletions alt/COSDBCL
Original file line number Diff line number Diff line change
@@ -0,0 +1,90 @@
$ 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
50 changes: 50 additions & 0 deletions alt/COSDDAM
Original file line number Diff line number Diff line change
@@ -0,0 +1,50 @@
$ 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 $
Loading

0 comments on commit 6c3809c

Please sign in to comment.